home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pc_pad.arc / ROWCOL.BAS < prev    next >
BASIC Source File  |  1983-07-29  |  640b  |  9 lines
  1. 10000   '----------ROWCOL.BAS - sample row-column sum instructions-----------
  2. 10010   ON ERROR GOTO 5000 'this prevents disabling of error trapping
  3. 10020   NROW0=FNV(2,6):NCOL0=FNV(3,6):NROW=FNV(4,6):NCOL=FNV(5,6)  'read table
  4. 10030   GOSUB 9630                                                 'form sums
  5. 10040   I=NROW0+NROW: J=NCOL0-1: X$="Column Totals"   : GOSUB 9920 'label row
  6. 10050   I=NROW0-2: J=NCOL0+NCOL: X$="Row Totals"      : GOSUB 9920 'label col
  7. 10060   GOTO 460           'this exits to the View Function
  8. W0-2: J=NCOL0+NCOL: X$="Row Totals"      : GOSUB 9920 'label col
  9. 10060   GOTO 460           'this exits to the